home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib13.dsk
/
DOUBLE CAT-FREECAT.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
727b
|
27 lines
1 REM ***********************
2 REM * DOUBLE CAT-FREECAT *
3 REM * BY MARK K. MCKIBBIN *
4 REM * COPYRIGHT (C) 1983 *
5 REM * BY MICROSPARC, INC. *
6 REM * LINCOLN, MA. 01773 *
7 REM ***********************
10 POKE -21084,42
20 FOR A = 44456 TO 44461
30 READ D
40 POKE A,D
50 NEXT A
60 FOR A = 44483 TO 44488
70 READ D
80 POKE A,D
90 NEXT A
100 FOR A = 44545 TO 44554
110 READ D
120 POKE A,D
130 NEXT A
140 POKE 44567,15
150 POKE 44605,44
155 POKE 44592,160
160 DATA 169,141,32,4,174,234,32,179,182,234,234,234,76,19,174,32,237,253,32,237,253,96
170 POKE 46814,241: POKE 46816,251: POKE 46817,181: POKE 46827,160: POKE 46841,141: POKE 46842,141
180 POKE 46825,201: POKE 46826,173
190 END